home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_32017_markBlackCSTR < prev    next >
Text File  |  1994-09-21  |  773b  |  25 lines
  1. set cursor to 11021
  2. wait 30
  3. if the mousev = the clickv then
  4. set cursor to hand
  5. listblacks
  6. else
  7. repeat with a = 1 to 4
  8. if line a of fld "verticals" = ""
  9. then exit repeat
  10. end repeat
  11. put "blackline"&a into TB
  12. set rect of bg btn TB to left of the target + 4 ,the clickv,left of the target + 9,the clickv
  13. show bg btn TB
  14. repeat until the mouse = up
  15. if the mousev < the clickv
  16. then set rect of bg btn TB to left of the target + 4,max(the mousev,top of the target),left of the target+9,the clickv
  17. else set rect of bg btn TB to left of the target + 4,the clickv,left of the target+9,min(the mousev,bottom of the target)
  18. end repeat
  19. if height of bg btn TB > 3 then
  20. put top of bg btn TB&","&height of bg btn TB into line a of fld "verticals"
  21. else
  22. hide bg btn TB
  23. end if
  24. doblacks
  25. end if